unit uRelPrevRecebimentos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uReportDatamodule, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,
  dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue,
  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
  StdCtrls,
  Buttons, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar,
  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver;

type
  TfPrevRecebimentos = class(TForm)
    lbl37: TLabel;
    cxDateEdit1: TcxDateEdit;
    lbl_Data: TLabel;
    cxDateEdit2: TcxDateEdit;
    Label1: TLabel;
    btnOpen: TBitBtn;
    procedure btnOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fPrevRecebimentos: TfPrevRecebimentos;

implementation

{$R *.dfm}

procedure TfPrevRecebimentos.btnOpenClick(Sender: TObject);
var
  dataI, dataF : string;
begin
  dmreport := Tdmreport.Create(Application);
  DateTimeToString(dataI,'dd/mm/yyyy',cxDateEdit1.Date);
  DateTimeToString(dataf,'dd/mm/yyyy',cxDateEdit2.Date);
  dmreport.loadPrevisaoRecebimentos(dataI, dataF);
  dmreport.frxrprtPrevisaoRecebimentos.ShowReport;
end;

end.
